home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / b+ menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  52 lines
  1. 100 poke53281,0:poke53280,0:print"[147][158]";
  2. 110 c$="12121515010115151212":cc=-1
  3. 111 ss$="                                        "
  4. 120 fori=1to12:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  5. 130 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
  6. 140 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  7. 150 poke2023,peek(1083):poke56295,peek(56255)
  8. 160 fori=217to242:pokei,peek(i)or128:next
  9. 170 poke214,5:print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]"
  10. 180 next:poke214,6:poke211,4:sys58732
  11. 190 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 200 printtab(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
  13. 210 poke214,16:poke211,4:sys58732
  14. 220 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 230 printtab(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":poke214,8:print
  16. 240 a$="[194]+  [205]enu":gosub300
  17. 250 a$="by [202]on [205]attson":gosub300
  18. 260 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#66":gosub300
  19. 270 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub300
  20. 280 a$="([195]) 1989 [211]oftdisk":gosub300
  21. 290 goto310
  22. 300 printspc(20-len(a$)/2)"[152]"a$:return
  23. 310 gosub510
  24. 330 poke214,19:poke211,4:sys58732
  25. 340 print"1. [211][197][197][160][194]+ [196][197][205][207]
  26. 345 [153]"2. (NULL)(NULL)atnstr$closepeek+
  27. 350 print"3. [208][210][201][206][212][160][194]+ [205][193][206][213][193][204]
  28. 360 [153]"4. (NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  29. 370 print""
  30. 380 geta$:ifa$<"1"ora$>"4"then380
  31. 381 c=1024+(18+val(a$))*40+5:fori=ctoc+30:pokei,peek(i)-128:next
  32. 382 ifa$="2"thengosub530:ify$="n"then310
  33. 390 onval(a$)goto400,410,420,430
  34. 400 f$="b+demo":goto440
  35. 410 f$="b+ boot":goto440
  36. 420 f$="b+ manual":goto440
  37. 430 f$="hello connect"
  38. 440 print"";:fori=1to17:printss$;:next
  39. 441 fori=217to242:pokei,peek(i)or128:next
  40. 449 open15,8,15,"r0:"+f$+"="+f$:input#15,er:close15
  41. 450 ifer<>63thenend
  42. 460 print"[144]load"chr$(34)f$chr$(34)",8"
  43. 470 poke631,13:poke632,82:poke633,213:poke634,13:poke198,4:end
  44. 510 poke214,18:sys58732:fori=1to6
  45. 520 print"[159]                                      ":next:print"":return
  46. 530 gosub510:poke214,18:print:printtab(10)"[207]nce run, this option"
  47. 540 printtab(8)"won't return to [204][207][193][196][211][212][193][210]."
  48. 550 printtab(13)"[195]ontinue?  ([217]/[206])"
  49. 560 gety$:ify$<>"y"andy$<>"n"then560
  50. 570 return
  51. 10000 open15,8,15,"s0:basic 4 boot":save"basic 4 boot",8:end
  52.